From: Paul Eggert Date: Fri, 1 Jul 2011 00:11:50 +0000 (-0700) Subject: * allout-widgets.el (allout-elapsed-time-seconds): Use float-time. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~3214^2~14 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=9c1cedfc9c7d2029e8081bd605932b23d89ce24b;p=emacs.git * allout-widgets.el (allout-elapsed-time-seconds): Use float-time. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5cfefd54260..19f1e038236 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2011-07-01 Paul Eggert + + * allout-widgets.el (allout-elapsed-time-seconds): Use float-time. + 2011-06-30 Lars Magne Ingebrigtsen * textmodes/flyspell.el (flyspell-word): Consider words that diff --git a/lisp/allout-widgets.el b/lisp/allout-widgets.el index 0f1fe850123..8dab7411750 100644 --- a/lisp/allout-widgets.el +++ b/lisp/allout-widgets.el @@ -2324,9 +2324,7 @@ We use a caching strategy, so the caller doesn't need to do so." (defun allout-elapsed-time-seconds (end start) "Return seconds between `current-time' style time START/END triples." (let ((elapsed (time-subtract end start))) - (+ (* (car elapsed) (expt 2.0 16)) - (cadr elapsed) - (/ (caddr elapsed) (expt 10.0 6))))) + (float-time elapsed))) ;;;_ > allout-frame-property (frame property) (defalias 'allout-frame-property (cond ((fboundp 'frame-parameter)